home *** CD-ROM | disk | FTP | other *** search
/ Clinical Endocrinology / Clinical Endocrinology.iso / mac / Endocrinology Folder / Data / Init.dir / 00004_Script_4 < prev   
Text File  |  1995-11-09  |  2KB  |  55 lines
  1. -- RearWindow XObject Example Movie
  2. -- by David Jackson-Shields
  3. -- vers. 1.0.2 (10/11/93)
  4. --
  5. -- ⌐ 1992-94 by Macromedia, Inc. and David Jackson-Shields
  6. -- All Rights Reserved
  7. --
  8. -- This movie demonstrates the use of the RearWindow XObject, which requires
  9. -- System 6.0.5 or later.
  10. -- The uses of the "RearWindow XObject" are:
  11. -- (1) When using a Stage size smaller than your monitor screen...you
  12. --     can cover the Finder Desktop when running on system 7.x or later,
  13. --     (or when running with systems 6.0.7 or later under "Multi-Finder" mode.)
  14. --     Options include filling the Rear Window with:
  15. --       (A) a 1-bit QuickDraw pattern: white, ltGray, gray, dkGray, black
  16. --       (B) the Finder Desktop pattern (whether color or black & white)
  17. --       (C) an indexed color of the current palette
  18. --       (D) an RGB color (specified by Red, Green, Blue values)
  19. --       (E) a Director bitmapped castMember (either stretched or non-stretched)
  20. --       (F) a PICT file image (either stretched or non-stretched)
  21. -- (2) To obtain the monitor screen pixel dimensions (top, left, bottom, right)
  22.  
  23. -- NOTE: The addition of an extra window even larger than your Stage will
  24. -- impact the memory requirements of your project. Check the "About MM"
  25. -- memory guage, or put the freeBytes and the freeBlock in the message
  26. -- window to see the impact this extra window has, and adjust your movieÆs 
  27. -- memory management as needed. In addition, a copy of any castMember or
  28. -- PICT file image used in RearWindow is kept in RAM. This is so it can 
  29. -- be redrawn in the RearWindow during update events...(like when the user
  30. -- opens a Desk Accessory or goes to MultiFinder and back, etc.)
  31.  
  32. on BlackOut
  33.   
  34.   global blackOutXObj
  35.   
  36.   if objectP( blackOutXObj ) then blackOutXObj( mDispose )
  37.   
  38.   if factory( "RearWindow" ) = 0 then
  39.     OpenXLib "RearWindow XObj"
  40.   end if
  41.   
  42.   -- [ "M" indicates multiple monitors.]
  43.   set blackOutXObj= RearWindow( mNew, "M" )
  44.   set resultCode = value( blackOutXObj )
  45.   if resultCode < 0 then
  46.     alert "System Error trying to create the RearWindow" && string( resultCode )
  47.   end if
  48.   
  49.   --(int is an integer from 0 to 255:)
  50.   set resultCode = blackOutXObj( mIndexColorToWindow, 255 ) -- fills index black
  51.   
  52.   
  53. end BlackOut
  54.  
  55.